home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / tcl / tclmotif.1 / tclmotif / tm.1.2 / doc / examples / scale.tcl < prev    next >
Encoding:
Text File  |  1994-01-24  |  237 b   |  15 lines
  1. #! moat
  2.  
  3. xtAppInitialize
  4. xmBulletinBoard .top managed
  5.  
  6. xmScale .top.scale managed \
  7.     -orientation horizontal -width 250 \
  8.     -showValue true -decimalPoints 1 \
  9.     -scaleMultiple 20
  10.  
  11. .top.scale setValues -value 31
  12.  
  13. . realizeWidget
  14. . mainLoop
  15.